home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 021a / lcad37.zip / COMMENTS.SCR < prev    next >
Lisp/Scheme  |  1991-10-07  |  1KB  |  45 lines
  1. (defun C:// () (getstring t "")(princ))
  2. (defun C:/* () (princ))
  3. (defun C:echo () (while(not(equal (getstring) "echo-off")))(princ))
  4. /*
  5. // The defun's above this line create three AutoLISP functions that
  6. // make commenting a script easy (and possible for that matter)
  7. /*
  8. //    Draw the text "LaunchCAD Test"
  9. /*
  10. text c (getvar "VIEWCTR") (/ (getvar"VIEWSIZE") 10) 0
  11. LaunchCAD Test
  12. /*
  13. delay 5000 //           wait 5 seconds
  14. /*
  15. redraw // This is a comment
  16. /*
  17. //    Note that the slash star is for blank comment lines only,
  18. //    and that the slash slash function must have some text on the
  19. //    same line, or it will eat the next line in the script file.
  20. //    When used at the end of a line leave only one space or tab
  21. //    prior to the double slash.
  22. /*
  23. textscr //        turn on the text screen
  24. echo
  25.  
  26.  
  27.           ┌──────────────────────────────────────────────┐
  28.           │ This is a test of the echo command. Note that│
  29.           │ you can put just about anything anywhere.    │
  30.           └──────────────────────────────────────────────┘
  31.  
  32.  
  33. echo-off
  34. /*
  35. delay 5000 //    delay for 5 seconds
  36. /*
  37. //        AutoLISP functions work only within the drawing editor
  38. //        so anything after .quit y or .end must be pure script text.
  39. //        Be sure to add the period as the first characters to
  40. //        .quit and .end to insure that the system commands are
  41. //        used instead of ant AutoLISP replacements. In addition
  42. //        do not place any blank lines at the end of the file.
  43. /*
  44. .quit y
  45.